Tal og data fra KUB Datalab

json_files <- list.files(path = "data/", full.names = T)

første forsøg på et kort!

json_files %>% map_dfr(fromJSON) %>% 
  select(name, coordinates) %>% 
  unnest(c(name, coordinates)) %>% 
  unnest(c(lat, lon)) %>% 
  mutate(lat = lat + .01,
         lng = lon + 0.01) %>% 
  select(lat, lng) %>% 
  leaflet() %>% 
  addTiles() %>% 
  addMarkers()